home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wheels2.arc / PARAMETR.LIB < prev    next >
Text File  |  1985-06-28  |  803b  |  21 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.      NOTE:  IMPORTANT -- This procedure is useless except in a COMPILED
  6.      program.  It returns a string of up to 80 characters consisting of
  7.      whatever you entered on the "command line" after the invocation of
  8.      the program itself.  Your program can then sort out that information
  9.      in any way you please.
  10.  
  11. }
  12. type
  13.   CommandLine = string[80];
  14. var
  15.   Parameters : CommandLine absolute CSeg:$80;
  16. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  17. function GetParameters : commandLine;
  18. begin
  19.   GetParameters := Parameters;
  20. end;
  21.